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DISCLAIMER 



Although each program has been tested by its contributor, 
no warranty, express or implied, is made by the contributor 
*or any User T s Group, as to the accuracy and functioning of 
the program and related program material, nor shall the fact 
of distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or any User's Group, in connection 
therewith. . . 



COMMON USEES GROUP PROGRAM REVIEW AND EVALUATION 
^| (fill out in typewriter, ink or pencil) 

Program No. Date 



Program Name:_ 



1. Does the abstract adequately describe what the program is and what Yes Nq_ 

it does ? 

Comm ent 

2. Does the program do what the abstract says? Yes No_ 

Comment 



3. Is the description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

C om m ent 

Are the Sense Switch options adequately described (if applicable) ? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable ? Yes No_ 

Comment 

^5. Does the source program compile satisfactorily (if applicable) ? Yes No 

\J Comment ; 

6. Does the object program run satisfactorily? Yes No_ 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 

8. Does the Program meet the minimal standards of COMMON? Yes No_ 

Comment ^ 

9. Were all necessary parts of the program received? Yes No 

Comment 



10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to; Your Name 

Company 

Mr. Richard L. Pratt 

Data Corporation Address 

7500 Old Xenia Pike 



Dayton, Ohio 45432 Users Group Code 



THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW AND 
EVALUATION PROCEDURE, NONMEMBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVALUATION. 
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COMMON USERS GROUP PROGRAM REVIEW AND EVALUATION 
(fill out in typewriter, ink or pencil) 

Program No. Date 

Program Name: ; 

1. Does the abstract adequately describe what the program is and what Yes Nq_ 

it does ? 

C om m ent 

2. Does the program do what the abstract says ? Yes No_ 

Comment 

3. Is the description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Comment 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable ? Yes No_ 

Comment 



5. Does the source program compile satisfactorily (if applicable) ? Yes No_ 

Comment 

6. Does the object program run satisfactorily? Yes No_ 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Comment 

8. Does the Program meet the minimal standards of COMMON? . Yes No_ 

Comment 

9. Were all necessary parts of the program received? Yes No_ 

Comment . 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 

IBM Corporation Company : 

Program Information Department 



40 Saw Mill River Road Address 

Hawthorne, New York 10532 

Attn: PREP FORM COORDINATOR UserS Gr0Up Code 



THIS REVIEW FORM IS PART OF THE COMMON ORGANIZATION'S PROGRAM REVIEW ANT 
EVALUATION PROCEDURE. NONME MBERS ARE CORDIALLY INVITED TO PARTICIPATE 
IN THIS EVA LUATION. 
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1620 PROGRAM ABSTRACT 



TITLE - GRAPH 2 - A Printer Plotting Subroutine algorithm. 
CLASSIFICATION - 9.0 Engineering Applications. 
AUTHORS/ORGANIZATION - 

Juris Putnins, Computing Center 

University of Wisconsin-Milwaukee 

Richard A. Northouse, Electrical Engineering 

College of Applied Science £ Engineering 

University of Wisconsin-Milwaukee 

Milwaukee, Wisconsin 53201 
RELEASED October 1966 User Group # 3285 
DIRECT INQUIRES to 

Juris Putnins (above) 
DESCRIPTION/PURPOSE GRAPH 2 provides the user a means of graphing 

numerical data without the use of a Calcomp digital plotter. 

The routine is self scaling and has variable length axes. 

Output is made on the on-line printer. 
SPECIFICATIONS 

1620 Model I or II; Equipment required, 20K decimal digits, 
1443 printer, 1311 disc file, and card reader. GRAPH 2 is a sub- 
routine programmed in Fortran II d with FORMAT. 
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PROGRAM DESCRIPTION 

GRAPH 2 is a Fortran subroutine which enables the user to display 
numerical data in graphical form. For installations without an incremental 
plotter it provides this graphical means . For installations with an increm- 
ental plotter it provides a means for a more rapid turnaround of graphica" 
output . 

GRAPH 2 provides the user with the capability of variable length axes 
and a scaling routine which attempts to utilize the maximum area of the graph. 

METHOD 

GRAPH 2 must be provided with two arrays: a X and a Y. These arrays 
are first scaled to maximize plotting area. A dummy single dimensioned array 
is now incorporated. The entire Y array is scanned for the highest scaled Y 
value (s). When found , the numeric equivalent of an asteric is put into the 
dummy array at the corresponding X position. When the scan is completed the 
dummy array is outputed on A format. The scan of the Y array is now repeated 
for the Y values that would appear on the next lower line , this line is then 
outputed, and the process repeated until completion. 

USAGE 

GRAPH 2 like all Fortran subroutines is executed with a CALL statement. 
This call must be made from a Fortran mainline and must have five parameters. 
CALL GRAPH 2 (XL, YL, N, X, Y) 

WHERE 

XL is the length of the X axis (abscissa) in inches. XL is not to 
exceed (I-16)/10, where I is the number of print positions available. 

YL is the length of the Y axis (ordinate) in inches. 



© 



o 



4. 

N is the number of paired X and Y data points to be plotted. 

X is the x array. This must be a dimensioned array in 
the calling mainline program 

Y is the y array. This also must be a dimensioned array 
in the calling mainline program 

All of the above variables are in floating point mode except the 
fixed point variable N. 

LIMITATIONS 

The number of data points to be plotted by GRAPH 2 is limited only 
by the dimension size of the X and Y arrays in the calling mainline. 

The Y array should contain at least two numerically unequal values. 
If this condition does not exist the scaling is not performed correctly, 
resulting in a unacceptable graph. No error statement will be given. 

The printer must operate at 6 lines per inch and the FANDK must be 
8 and H. 
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EXAMPLE 

For an illustrative example let us generate a circle and then have 
GRAPH 2 plot it. 



AM* 



AHO-O 
A~ zir/3* 



CALL 
GRAPH 2 



The Fortran listing of this flowchart appears in the Appendix. The output 
generated is that of the next page. 



1.20E+02+ 



8«00E+01+ 



4.00E+01+ 



3.54E-05+ * 



-3.99E+01+ 



-7.99E+01+ 



-1.19E+02+ 

+ + + + + + + 

-1.20E+02 -8.00E+01 -4.00E+01 0.00E-99 4.00E+01 8.00E+01 1.20E+02 
END OF JOB 



Sample Output of Graph 2 



TIME AND CORE CONSUMED 



The above example required 8694 decimal digits of core (not counting 
the monitor system) and approximately 1.5 minutes to compile, load 
and execute. 

CONCLUSIONS 

GRAPH 2 has been released to the users at the University of Wisconsin 
Milwaukee for two semesters. It has proven to be much faster than 
the incremental plotter and in most cases quite satisfactory. 
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FLOWCHART OF 6RAPH2 



(enter ) 
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VALUE 
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Source Listing of Graph 2 
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**F0R 
*P0BJP4 



*LDISK GRAF 10 

*L ISTPRINTER GRAF 20 

C GRAF 30 

C GRAF 40 

C ********************************************** ******************** GRAF 50 

C * *GRAF 60 

SUBROUTINE GR APH2 ( XL , Y L , N ,X,Y) GRAF 70 

C * *GRAF 80 

C * #GR AF 90 

C * #GR AF 100 

C * JURIS PUTNINS-COMPUTING CENTER, RICHARD NORT HOUSE-ELECT ENG *GRAF 110 

C * UNIVERSITY OF WISCONSIN M I L WAUKEE , M I L WAUK EE , W I S 52301 #GR AF 120 

C * #GR AF 130 

C ******************************************************************gr AF 140 

C GRAF 150 

C GRAF 160 

C WHERE XL IS THE X AXIS LENGTH IN INCHES, YL IS THE LENGTH GRAF 170 

C OF THE Y AXIS IN INCHES , N IS THE NUMBER OF POINTS TO BE PLOTTEDGRAF 180 

C GRAF 190 

C GRAF 200 

C GRAF 210 

C GRAF 220 

DIMENSION X(1),Y(1),LINE(131),XV(14) GRAF 230 

C GRAF 240 

C **************** SCALE BOTH X AND Y ARRAYS ********************gr AF 250 

CALLSCALE(X,N,XL,XMIN,DX) GRAF 260 

CALLSCALE(Y,N,YL,YMIN,DY) GRAF 270 

C GRAF 280 

C *********** DEFINE THE A PL HA EQUIVALENT OF ONE **************** GRAF 290 

IT=7100 GRAF 300 

C GRAF 310 

C ******** DEL IS THE INCHES PER CHARACTER *************** ***gr A F 320 

DEL =DY/1 2. GRAF 330 

C GRAF 340 

C ***** SET Y VALUE EQUAL TO THAT OF THE GRAPH TOP *******«***GRAF 350 

YV=YMIN+DY*YL GRAF 360 

NL=0 GRAF 370 

C GRAF 380 

C ******* NLTO IS THE NUMBER OF LINES NEEDED *****************GRAF 390 

NLT0=YL*6. GRAF 400 

C GRAF 410 

C ******** nc IS THE NUMBER OF CHARACTERS NEEDED ******* ********gr A F 420 

NC=XL*10.+1. GRAF 430 

C GRAF 440 

C ******************* CLEAR THE DUMMY ARRAY ******* *************GRAF 450 

4 DO 1 1 = 1, NC GRAF 460 

1 LINE (I )=0 GRAF 470 
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C GRAF 480 

C ******* CHECK FOR END POINT OF GRAPH *********************GR AF 490 

IF (NL-NLTO )5, 5,6 GRAF 500 

C GRAF 510 

C ************* FIND POINTS ON THIS LINE *********************gr AF 520 

5 DO 7 1=1, N GRAF 530 
IF(ABSF(Y(I )-YV)-DEL)8,8,7 GRAF 540 

8 NX=(X ( I )-XMIN)*10./DX+l. 5 GRAF 550 

L I NE ( NX )= 1 400 GRAF 560 

7 CONTINUE GRAF 570 

C GRAF 580 

C ********** CHECK FOR INCH MARK ON Y AXIS ************ *******gr A F 590 

20 IF (NL/6*6-NL) 22, 21,21 GRAF 600 

21 PRINT 23,IT,YV, (LINE(I ) , I = 1 , NC ) GRAF 610 

23 FORMAT! A1,E9. 2, 1H+, 14( 10A1 ) ) GRAF 620 
IT=0 GRAF 630 
GOTO 25 GRAF 640 

22 PRINT 24, ( L I NE (I ) , I = 1 » NC ) GRAF 650 

24 FORMAT ( 10X, 1HI , 14( 10A1 ) ) GRAF 660 
C GRAF 670 
C *********** DECREMENT THE Y VALUE ******************* ******QR A F 680 

25 YV=YV-DY/6. GRAF 690 
NL=NL+ 1 GRAF 700 
GOTO 4 GRAF 710 

6 MINUS=2000 GRAF 720 
PLUS=1000 GRAF 730 
J=XL GRAF 740 
PRINT 17, PL US, ( (MINUS,K=1,9),PLUS,L=1,J) GRAF 750 

17 FORMAT( 11X, 14( 10A1 ) ) GRAF 760 

XV(1)=XMIN GRAF 770 

I=XL+1. GRAF 780 

C GRAF 790 

C ************* CALCULATE X VALUES ************************qr gQO 

DO 32 J=2,I GRAF 810 

32 XV( J) = XV( J-D+DX GRAF 820 
PRINT 33, (XV(J) ,J=1,I ) GRAF 830 

33 F0RMAT(7X,13(E9.2,1X) ) GRAF 840 
RETURN GRAF 850 

C GRAF 860 

Q ************** END OF SUBROUTINE GRAPH2 **********************GR AF 870 

END GRAF 880 



12 



Object Listing of Graph 2 



3WP 3WPHHHHHHHHHHHHHHHHHHPW3 3 WP .CCCCCCCCCCCCCCCCC 

-010-207R87898M75941 574872-3 590-8-4-0 91 2N9998000000000000000 100000000000 100-0001 
-0000KJ701 234567891 2 34567*-00002Ml OOOOOOOO-lJOOOOOOO-l-OO 1J5000000 -1-00 9P 10 -000 2 
-00412M50J2000000-2-OOOJOOOOOOO-2J400-00 6KOOOJOOO-00 2+-0 1212-1**00000000000-000 3 
-09 1 2 1J2 17-2 38 L-0001*-09 18 1L6J 0-100 8-0096 J 1-1 00 8000-4J 1-0 9 17000 -5*000000000 -000 4 
-0954 100KO-0989-09 IP MM- 1002-0989L3-0 989-0000KO-0 989-0 98RK0-00 96-0 98 9*000000 -000 5 
-1 014 100 J 1-1 008000-1 MN-09 30- 100Q J 1-0 91 7000-2 L 1-090 1-03 70 17-23 8L-000 2*000000 -000 6 
-10741J2JP-090 — 108 53K5-011N-01 1 — 010 — 795-0805*- 1 1 1 21J2 1 7-238L-000 3*00000 -000 7 
-11241J2 JP-090 — 11353K5-012 — Oil — 10N-0 81 5-0 873*-l 1 621J2 1 7-238L-000 4*00000 -000 8 
-11 74 100-0-08 19-0041 17-238 L-000 500-2492-08 730R-2492-00 5 1-6-0 8 29-2492*000000 -0009 
-1234100 17-2 38 L-000600-2492-08 730 L-2492-0 10N0 J-2492-0 81 5-6-0 83 9-2492*000000 -00 10 
-1294 100 17-238 L-0007-0-0843-00 551 7-23 8L-000 800-2 492-0 10N0 L-2492-000 9*000000 -00 11 
-1 3 54 100 17-38 54-2492-6-08 77-2492 1 7-238L-00090 0-2492-0 10 -OL-2492-00 65*000000 -00 12 
-1414 1M80J-2492-00 19 17-38 54-2492-6-084 7-24921 7-23 8L-000 -*000000000000000000 -00 13 
-14501L617-2 38L-0040K0-08 51-00 2317-238L-00 41*-14741 J21 7-238L-00 10*000000000-00 14 

- 1486 100J3-085 1000-41 1-0O99-000MO5- 1522 R9-0 — J K 5-00 55 J 1-0 851000-1*000000-00 15 

-1 546 1O0KM-085 1-08 47M7-1 474- 11 001 7-2 38L-00 110 0-2492-0 8432K-2492-0 8 77*000000 -00 16 
-16061M814-24920-OOOM7-0000-1300M6-162M-1200M9-0000-0000*000000000000000000-00 17 
-1 650 1J2 17-2 38 L-0012*-l 6203-5- 1650*-1 650 1K41 7-238L-00 50KO-0 8 51-00 2 3*0000000-00 18 

-1674 100 17-238 L-005 120-0098-08 51 11-0099-001-05-1 722 R9P — 1 745-0 120*000000-00 19 

-173410000-2492 — JK00K-2492-08 39 1 7-232 L-24920K-2492-0 82 9M3-1 80 2-2483*000000 -00 20 
-1 794 1J2M9-0000-0000*- 18021 K4M4-0000-2490M9- 180 — 0000*-1822 1J2 1 7-238 L-00 52*-00 21 

-17963-5-1 8 22*-l 8 221 M8 17-238 L-00 8020-0098-0 85 11 1-00 99-00 1-05-1870 R9*0000-00 22 

-1870100P — 1893-011 500-2492 — J J 50K-2492-0 7950 L-2492-00650R-2492-0 80 5*000000-00 23 
-1 9301000 J-2492-0033 17-38 54-2492-6-0 855-2492 1 7-238L-00 8 1J 3-0 855000 -4*000000 -00 24 

-1 990 1M8 11-0099-000 MO 5-20 14 99-0— J2 5-00691 7-23 8L-00 82*- 18043-5-20 26*0000 -00 2 5 

-202 6 100 17-2 38 L-0070J 1-08 51000-1 KM-0 85 1-0 11-M7- 16 74-1 100 17-23 8L-00 7 1*000000 -00 26 
-2074 100 17-238 L-020000-2492-08431 P-392 6-00 73 1 P-390 2-00 732K-2492-0 843*000000 -00 27 
-21341M814-24920-OOOM7-0000-1300M6-0000-1200M9-216M-0000*000000000000000000-00 28 
-21781 J21 7-238 L-0201*-21 60 3- 5-21 78*-21 781 K41 7-23 8L-0000 1P-450 2-0000*0000000-00 29 
-22021001P-381L-08191P-3800-08 39KO-0 851-002 3J3-0 8 51000-411-00 99-OOOM*000000-00 30 

-226210005-2274 R91— 381L — JK5J 1-0 851000 -1KM-0 85 1-0 847M 7-2238-1 100*000000 -00 31 

-2322 1K4 17-38 30000-01 7-238 L-02 1 l*-23341J249-0000-0000*-2 19 73-5-2 340 +0000000 -00 32 
-2341 2-5-44062-3-022-5- 44542- 5-09-22- 5-44782- 5-0 2 JO 2- 5-44062-3-0 22-5-382 L*0 -00 33 
-23823-5-23732-2 J02- 5-37903-5-23 732-2 J 42-5-38203- 5-2368*-233 63-5-2412*00000 -00 34 
-2412 1L617-238L-023 1-0-08 19-00551 7-23 8L-0 2 32 *-24361J2M9-0000 -0000*000000000 -00 35 
-2444 1J2 17-2 38 L-02 33*-2 148 3- 5- 2444*-24441K41 7-2 38L-O00O 1P-450 2-0000*0000000 -00 36 

-2468 100KO-085 1-002 3 J 3-08 5 1000-41 1-00 99-000M05-2 51 6 R91 — 38 1L— JK5*000000 -00 37 

-2 52 8 100 J 1-085 1000-1 KM-08 51 -0847M 7-2480-1 100 17-383Q000-0 17-23 8L-0 22 1*000000 -00 38 
-25761J249-0000-0000*-2463 3-5-2 582*-2 5832-5-383L2-3-202-5-44782-5-0 2M9*0000-00 39 
-260 12-5-44062-3-022- 5-382 L3-5-260 52-2J02-5-3 79Q3-5-260 52-2 J42-5-382Q*00000 -00 40 
-263 83-5-2600*-2578 3- 5-2 644*-26441J21 7-23 8L-02 41 *-243 83-5-2 644*000000000000 -00 41 
-2644100 17-2 38 L-0 25000-2492-08 730R-2492-000 91 P-4022-0 839-6-0 839-2492*000000 -00 42 
-2704 1001 7-238 L-0251 00-249 2-08432 J-2492-002 3-6-0 843-2 4921 7-23 8L-0 25 2*000000 -00 43 
-2 7521J2M9-1450-0000*-27601 J21 7-238L-0253*-l 6443-5-2 760*0000000000000000000 -00 44 
-2760 10017-238 L-0060-0-088 1-00 771 7-238L-0061 1 P-3998-008 1-6-089 1-2492*000000 -00 45 
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-2820 100 17-2 38 L-006 22P-38 54-0 100-6-0 859-24921 7-2 3 8L-0000 1P-450 2-0000 +000000 -00 46 
-2 8801001P-380Q-0891KO-08 63-00 23KO-0 895-00 2 31 P-381 L-0 881J 1-0 895000-1*000000-00 47 
-2940 100KM-0895-0037M7-29 16-1 100 1P-3 80 0-0 891J 1-0 863000 -1KM-0 8 63-0 8594=000000 -00 48 
-3000 1L6M7-2904-1 100 17-38 3Q000 -0 1 7-238L-0064+-302 41J 249-0000 -0000 +000000000 -00 49 
-28753-5-30 30+-30 31 2-5- 383 L2-3-222- 5-44062-3-0 22- 5-382 L3-5-30432-2J0 +000000 -00 50 
-30592-5-37903-5-30432-2 J 42- 5-382Q3- 5-30 3 8+-302 63- 5-30 82 +000000000000000000 -00 51 
-3082 100 17-2 38 L-0 17 1-0-0 65 5-0 79 51 7-238L-01 7200-2 492-010-0 J-2492-00 19+000000-00 52 
-31 42 100 17-3854-2 492-6-08 5 1-2492 1 7-238L-0 1 73K0-08 59-00 851 7-23 8L-0 174+000000-00 53 

-3 190 100 17-2 38 L-0 320 2Q-0098-08 59 11-0099-00 1-05-32 38 R92Q-00 98-0 859+000000 -00 54 

-32 5010011-0099-00 2-0 5-32 74 9900-2492 — 05 50 J-2492-080 5-6 — ON5-2492+000000 -00 55 

-33 10 100 J 1-0 859000-1 KM-08 59-08 51 M7-31 90-1 1001 7-2 38L-0000 1P-450 2-0000+000000-00 56 

-33 70 1O0KO-0859-00 2320-0098-08 59 11-0099-00 1-05-341 8 R91 — 3 800 — 0N5+000000 -00 5 7 

-3430 100 J 1-0 859000- 1KM-08 59-08 51 M 7- 33 82- 11001 7-3 83Q000 -0 1 7- 23 8L-0 322+000000-00 58 
-3478 1J249-0000-0000+-33 653- 5-3484+-34852- 5-3 83 L2-3-1 42 -5-44542-5-0 9-2+0000 -00 59 
-35032-5-3 8 3L2-3-0 2 2- 5- 379Q3- 5-349 72-2 J 32- 5-3 8203- 5-3492 +-3480 3-5-3534+0000 -00 60 
-3 534100 17-2 38 L-0000 3J-0 370-090 1M9-0 91 P-00001 7-23 8L-0000 49-0 796-0000 +000000 -00 61 
-0000+000000000000000000000000000000000000000000000000000000000000000000000-00 62 
-0000+000000000000000000000000000000000000000000000000000000000000000000000-00 63 
-0000+000000000000000000000000000000000000000000000000000000000000000000000-00 64 
-3 5902 J902434 15345 00-0900 -+600000000000000000000000000000000000000000000000 -00 65 
R 9999+000000000000000000000000000000000000000000000000000000000000000000000 -00 66 
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O 



Renter) 
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calculate 
Range 



CALCULATE 
DX 


< 


t 


CALCULATE" 




t 



© 



CALCUAATE 
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**FOR 
*P0BJP4 
*L ISTPRINTER 
*LDISK 
C 



SCAL 
SCAL 
SCAL 
SCAL 

********************************************************** ********§£ A j_ 



SUBROUTINE SCALE ( X , N, XL , XMI N, DX ) 



JURIS PUTNINS-COMPUTING CENTER, RICHARD NORTHOUSE-ELECT ENG 
UNIVERSITY OF WISCONSIN MILWAUKEE , MILWAUKEE ,W IS 5230 1 



C 

9998 
C 
C 
C 

CC 
C 



*SCAL 
SCAL 
*SCAL 
*SCAL 
*SCAL 
*SCAL 
*SCAL 

******************************************************************$£ A l_ 

SCAL 
SCAL 
SCAL 
SCAL 
SCAL 
SCAL 

CALCULATE RANGE OF VARIABLES **************$CAL 

SCAL 
SCAL 
SCAL 
SCAL 
SCAL 
SCAL 
SCAL 
SCAL 

DX = INCREMENT PER INCH *******************$CAL 

SCAL 

********* CHECK FOR NON VARYING DATA *************************$CAL 
IF (DX>9998, 9999, 9998 SCAL 
********** ' TRUNCATE TO ONE SIGNIFICANT DIGIT **************SCAL 
DX=DX+DX* 10000000. -DX* 10000000. SCAL 

SCAL 

************ FIND MAGNITUDE OF INCREMENT ******************* SCAL 

* TO INCREASE SPEED THERE IS TWO SECTIONS MAGN.GT.10 AND .LT.l* *SCAL 
********** S ET DELDX AS l.*(EXPONENT OF DX) ************** $CAL 

SCAL 

IF(DX-10. )20,21,21 SCAL 



DIMENSION X(1000) 
XMIN=X( 1) 
XMAX=X( 1) 

***************** 
D01I=1,N 

IF ( X (I ) -XM IN ) 2 , 3, 3 
XMIN=X(I ) 

IF (XMAX-X ( I ) )4, 1, 1 
XMAX=XU ) 



2 
3 
4 

1 CONTINUE 



************** 
DX=(XMAX-XMIN)/XL 



10 
20 
30 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
2 50 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
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20 DO 22 1-1*101 SCAL 410 
IF(10.**(1-I )-DX)23, 23,22 SCAL 420 

22 CONTINUE SCA| _ 43Q 

23 DELDX=10.**( 1-1 ) SCAL 44Q 
GOTO 30 SCAL 450 

21 DO 24 1=1,99 SCAL 46Q 
IF(DX-10.**I )25, 24,24 SCAL 470 

24 CONTINUE SCAL 480 

25 DELDX=10.**( 1-1) SCAL 49Q 

30 A= ~ 1 * SCAL 500 
C ******** FIND MINIMUM VALUE THAT IS A MULTIPLE OF OX *******«*$CAL 510 

IF(XMIN)31,35,35 SCAL 520 

31 IFUMIN-A* DX)33,40,40 SC AL 530 

33 J^I 1 - SCAL 540 

GOTO 31 SCAL 550 

35 IF (XMIN-(A+1, )*DX ) 40 , 3 7» 37 SCAL 560 

37 A»A+1. SCAL 570 

G0T0 35 SCAL 580 

C ****** CHECK, DO ALL POINTS FIT USING THIS MIN AND DX... *******SCAL 590 

40 IF<XMAX-(A+XL)*DX)42,42,41 SCAL 600 
C ******* no FIT., INCREMENT DX BY DELDX AND TRY AGAIN ******«***SCAL 610 

41 DX=DX+DE LDX SCAL 62Q 

G0T0 30 SCAL 630 

C ********* YES WE HAVE A FIT DEFINE XMIN AND RETURN *******SCAL 640 

42 XMIN=A*DX SCAL 650 
9999 RETURN SCAL 66Q 
C *************** END OF SUBROUTINE SCALE *********************** S CAL 670 



Object Listing of Scale 
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010-207R87 89802 4341 534500-2 394-8-4-0 1 1 8N999800000000000000 0000000000000 100-000 1 
0000K J701 23456789 1234567*-00002Ml-00 1-10 1-0 99J0000000-1 J0000000 -8 JOOOOOOO — 000 2 
004 1 2- 12*-0077 2- 1**0000000000000000000000000000000000000000000000000000000 -000 3 
01181J217-238L-0001*-01241L6J0-0 214-00 52Jl-0214000-4Jl-0 123000-5*000000000-000 4 
0160 10 OK 0-0 195-0 1 2 LMM-0 208-0 19 5L3-0 1 9 5-0000 K 0-0 195-0 1 9NK 0-00 52-0 195*000000-000 5 
0220 100 J 1-0 2 14000-1 MM-0 1 36-02 1MJ 1-01 23000-2 Ll-0 11 2-03 751 7-23 8L-000 2*000000 -000 6 
0280100J6-0 315-OOOOKJ-0 31 5-00 560 6-2492-0000-6-00 7 J-2 492 17-23 8L-000 3*000000-000 7 
0340 100J6-0 375-0000KJ-0 37 5-00 5606-2492-0000-6-00 8 7-2492 17-23 8L-000 4*000000 -000 8 

0400 100KO-009 1-000 3 17-2 38 L-000 52Q-00 98-00 91 11-00 99-00 1-05-0460 R9*000000-0009 

0460 100P — 0483-00 5600-2492 N60K-2492-00 7JM3-0 51 6-2 483 M9-0000 -0000*000000 -00 10 

05161K4M4-051M-2 490M9-0000-0000*-0 5361 J21 7-23 8L-000 6*-0 530 3-5-0 5 36*0000000 -00 11 

53 6 100 17-238 L-00 2020-0098-009 11 1-0099-00 1-05-0 5 84 R9P—0 60 7-00 56*000000 -00 1 2 

0596 1L 600-2492 N6-6-007 J-24921 7-23 8L-00 21 *-0 5 10 3- 5-0 620*0000000000000000 -00 13 

0620 100 17-238 L-00 30 20-0098 -009 111-0099-001-05-0 66 8 R90 0-2492-00 87*000000 -00 14 

0680 1M8P — 070 3-00 560K-2 49 2 N6M3-0 724-2483M9-0000-0000*000000000000000000-00 15 

0724 lK4M4-072K-2490M9-0000-0000*-0 7441J 21 7-2 38 L-00 3 l*-0 73 83-5-0 744*0000000 -00 16 

0744 100 17-2 38 L-004020-0098-009 11 1-0099-00 1-05-0 792 R9P — 8 15-00 56*000000 -00 1 7 

08041 L600-2492 N6-6-0087-24921 7-2 38L-00 41 *-0 71 83-5-0 82 8*0000000000000000-00 18 

082 8 100 17-238 L-00 10 J 1-009 1000- 1KM-00 91-00 6 JM7-0 41 2- 1100 17-23 8L-00 11*000000-00 19 
0888 10000-2492-00870K-2 492-00 7J0R-2492-00 60- 6-00 70-2492 17-23 8L-00 12*000000-00 20 
0948 lL600-2492-0070M3-0980-2483M9-0000-0000*-09801J2M4-0000 -2490*000000000 -00 21 
0992 1J2M9-0980-0000*- 1000 1J21 7-2 38L-00 1 3+-0982 3- 5- 1000*0000000000000000000 -00 22 
1000 100 17-2 38 LR998 000-2 49 2-00 700 L-2492-00 3 10 J-2 492-00 70-6- 10 77-2492*000000 -00 2 3 
10601J2M9-1078-0000*-l 0781 L60 0-249 2-00 700 L-2 492-00 311 P-40 2 2-10 77*000000000 -00 24 
11 14 100-6-0070-2 4921 7-238 LR998 100-2492-00 700K-2492-00 4 1M3- 11 82-248 3*000000 -00 2 5 
11741J2M9-0000-0000*-11821K4M4-118 — 2490M9-0000-0000*-120 2 1J2 1 7-238 LR998 2*-00 26 
1 1963-5-1 202*- 1 202 1M81 7-238 L-0200K0-0091-000 31 7-2 38L-020 10 0-2492-000 3*0000 -00 2 7 
12 50 1002K-2492-009 1-6-1 077-249200-2492-00 41 1P-40 94- 10 770K-2492-00 70*000000 -00 28 
13101K4M3-1330-2 48 3M9-0000-0000*-13301K4M4-0000-2490M9-132Q-0000*000000000-00 29 
1 350 1J2 17-238 L-0202*-l 332 3-5-1 350*-l 350 1K41 7-2 38L-0220J 1-00 9 1000 -1*0000000 -00 30 
1374 1 L 6KM-0091-0007M7- 122 6- 1100 17-2 3 8L-0 221*- 132 43- 5- 13 98*0000000000000000 -00 31 
1398 100 17-2 38 L-023000-2 492-000 32 K-2492-00 91-6- 10 77-24920 0-2492-00 4 1*000000 -00 32 
1458 1L 6 1 P-4094- 1077-6 -010 1-249 21 7-23 8L-02 31 *-l 482 1J2M9-0000 -0000*000000000 -00 33 
1 490 lJ217 T 238L-0 232*-l 17 63- 5- 1490*-1490 1K41 7-238L-0210K0-00 9 1-000 3*0000000 -00 34 
1 5 14 100 17-238 L-0 21 100-2 492-0041 1P-40 94-00 91 2 P-40 22-00 76M3- 1582-248 3*000000 -00 3 5 
15741J2M9-0000-0000*-158 21K4M4-158 — 2490M9-0000-0000*- 160 2 1J2 17-2 38 L-0 21 2*-00 36 
15763-5-1602*-16021M8 17-2 38 L-0240J1-0091000-1KM-00 91-00 1 1M 7-1 5 14-1 100 *0000 -00 3 7 
1 650 1J21 7-238 L-0241*-l 5963-5- 1650*-1 650 1K41 7-2 38L-02 500 0-2492-00 9 1*0000000 -00 38 
1674 1002K- 2492-000 3-6-1077-249 200-2492-00 411 P-40 94- 10 77-6-0 10 1-2492*000000-00 39 
17341J217-238L-0 251*-148 43-5-1734*-17341K417-2 38L-0300 1P-39 74-00 2 1*0000000 -00 40 
1758 100-6-0 11 1-2492 17-238 L-0 30 100-2492-00 7JM3-1 81 4-2483M9-0000 -0000 +000000 -00 41 
18141K4M4-181K-2490M9-0000-0000*-18341J21 7-2 38L-0302*-182 83-5-18 34*0000000-00 42 
1834 100 17-238 L-0 31 000-2492-0 1110L-2492-00 702 P-40 22-00 7 1M3- 190 2-2483*000000 -00 43 
18941J2M9-0000-0000*-190 21K4M4-190 — 2490M9-0000-0000*-19221J217-238L-0 31 l*-00 44 
19 163-5- 19 22*-19 22 1 M8 17-2 38 L-0 33000-2492-0 1 1 10K-2492-002 1-6-0 111-2 492*0000-00 45 
1 970 1J21 7-238 L-033 1*-1970 1J2M9-1 834-0000 *-19781J 2 17-238L-0 33 2*000000000000 -00 46 
18083-5- 1978*- 1 978 1M8 17-2 38 L-0 35000-2492-0 11 10 J-2492-002 10 L-2492-00 70*0000 -00 47 
2026 lL62P-4022-0071M3-20 58-2483M9-0000-0000*-20 58 1J 2 M4-20 50-2490*000000000 -00 48 
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-2070 1J2M9- 190 — 0000*-20781J21 7-2 3 8L-0 3 51 *-20 52 3- 5-20 78*0000000000000000000-00 49 
-2078 100 1 7-2 38 L-0 37 000-2492-0 11 10 J-2492-00 2 1-6-0 11 1-24921 7-23 8L-0 37 1*000000-00 50 
-2 1 261J2M9- 1 978-0000*-2 1 341J2 1 7-238L-03 72 +-18963-5-2134*0000000000000000000 -00 51 
-2 134 100 17-2 38 L-0 40000-2492-0 11 10 J-2492-00600L-2492-00 70 1P-40 22-00 8 7*000000 -00 52 
-21941K4M3-2214-2483M9-0000-0000*-22141K4M4-0000-2490M9-221K-0000*000000000-00 53 
-2234 1J2 17-238 L-0 40 l*-22 163- 5-22 34*-22341K41 7- 23 8L-0 41000-2492-00 70*0000000-00 54 
-22 58 1L60J-2492-0 10 1-6-0070-2492 1 7-238L-041 1 *-22 82 1J2M9-1 734-0000*000000000 -00 55 
-22901J217-238L-0 412*-2208 3-5-2290*-22 901K41 7-23 8L-0 42000-2492-0 1 1 1*0000000 -00 56 
-23 14 lL60L-2492-0070-6-007J-249217-238L-0421*-0 9743- 5-2 338*0000000000000000 -00 5 7 
-2338 100 17-238 L-00003J-0 37 5-0 112M9-01 2 L-00001 7-2 38L-000049-0 796-0000*000000 -00 58 
-0000*000000000000000000000000000000000000000000000000000000000000000000000-00 59 
-0000*000000000000000000000000000000000000000000000000000000000000000000000-00 60 
-23942-1*600000000000000000000000000000000000000000000000000000000000000000-00 61 
R9999*000000000000000000000000000000000000000000000000000000000000000000000-00 62 



Source Listing of Mainline Program 



19. 



++FORX 



#1. 1 STPR I NTER 


TEST 


10 


*P0BJP4 


TEST 


20 


C 




TEST 


30 


C 




TEST 


40 


C 


###### ########## 


50 


C 




^T EST 


60 


C 


* TEST MA 


INLINE FOR GRAPH2 *T EST 


70 


C 




*TEST 


80 


c 




TEST 


90 


c 




*TEST 


100 


c 


* J. 


PUTNIS AND R . A, NORTHOUSE *T EST 


110 


c 


* UNIVERSITY OF WISCONSIN MILWAUKEE *TEST 


120 


c 




APRIL 1967 *TEST 


130 


c 




♦ TEST 


140 


c 




150 


c 




TEST 


160 


c 




TEST 


1 70 




DIMENSION X(30),Y(30) 


TEST 


180 


c 




TEST 


190 


c 




DEFINE CONSTANTS *###$**##**###***###*#TEST 


200 


c 




TEST 


210 




TWOPI=8.#ATAN( 1. ) 


TEST 


220 




ANG=0 • 


TEST 


2 30 




DELTA=TWOPI/30. 


TEST 


240 


c 




TEST 


2 50 


c 




CONSTRUCT THE CIRCLE ****###*#***#***###*t EST 


260 


c 




TEST 


2 70 




DO 2 K=l,30 


TEST 


280 




X (K ) = 100 • *COS ( ANG ) 


TEST 


290 




Y(K ) = 100.*SIN( ANG) 


TEST 


300 




2 ANG=ANG+DELTA 


TEST 


310 


c 




TEST 


320 


c 




GRAPH THE CIRCLE ######**#*#**#*#*5}c55c##*tesT 


330 


c 




TEST 


340 




CALL GRAPH2(6. ,6. ,30,X 


»Y) TEST 


3 50 




CALL EXIT 


TEST 


360 


c 




TEST 


3 70 


c 




END OF TEST s)t************************TEST 


380 


c 




TEST 


390 




END 


TEST 


400 
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-0 10-2O7R87 898-0-0000 J0-00- 11 58-8-4-0 70 8N999800000000000 1110000000000000 100-000 1 
-0000KJ70 12 34567891 234567+-00002M1 00000000 -1J0000000- 1-0000000 RR-00 UOOOOOO -000 2 
-00412K70-300000000-ll_0000000-2-030*000000000000000000000000000000000000000-000 3 
-0708 100 17-2 38 L-00011P-2 31 L-001 90 L-2492-000 9-6-0 3 77-2492 17-23 8L-000 2*000000-000 4 
-0768 100-0-0 387-00 291 7-238 L-000 300-2492-0 3 770 R-2492-00 63 -6-0 3 97-2492*000000 -000 5 
-082 8 100 17-2 38 L-000 4KO-070 1-0033 17-238L-000 52 0-00 98-0 70 11 1-00 99-00 1-+000000 -000 6 

-088810005-0900 R9 1P-2 30L-038 70L-2492-00 43-6 P 7-2492 17-23 8L -0006 +000000 -000 7 

-0948 1M81P-2 30Q-03870L-249 2-0043-6 — M- 7-24921 7-2 3 8L-000 7*000000000000000000 -000 8 
-0984 100 17-2 38 L-00 2000-2492-038 70 J-2492-039 7-6-03 8 7-2492 J 1-0 701000-1*000000-000 9 
- 1044 1M8KM-070 1-006 7M7-08 52- 11001 7-23 8L-00 2 1JP-0 700-10 913 J 5-00 5 3-00 5 3-00 6 7*-00 10 
-1 1073J0-0077-0407*-ll 18 1K417-238L-002249-0 796-0000 *-ll 38 1J2 17-2 38 L-0000*00 -00 11 
-11501J249-0796-0000*000000000000000000000000000000000000000000000000000000-00 12 
-11582J9M75941574872-0706-*600000000000000000000000000000000000000000000000-00 13 
R9999*000000000000000000000000000000000000000000000000000000000000000000000-00 14 



OPERATING INSTRUCTIONS 

To use GRAPH 2 the user must load both SCALE and GRAPH 2 on to the disk 
before an execution is attempted. This can be accomplished by, 

1) CLEAR CORE 

2) COLD START 

3) COMPILE AND LOAD GRAPH 2 SOURCE DECK 

4) COMPILE AND LOAD SCALE SOURCE DECK 

5) EXECUTE MAINLINE SOURCE DECK 



DECK LABELING SHEET 

Deck No. Name Cards 

1 Test Mainline - Source 4 2 

2 Test Mainline - Object 14 

3 Graph 2 - Source 91 

4 Graph 2 - Object 66 

5 Scale - Source 71 

6 Scale - Object 62 
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